module time_mod

  use constants_mod
	
	implicit none

	integer :: time_step = 1
	real(r8) :: elapsed_seconds = 0.0_r8
	
contains
  
  subroutine advance_time(dt_in_seconds)

		real(r8), intent(in) :: dt_in_seconds

  	time_step = time_step + 1

		elapsed_seconds = elapsed_seconds + dt_in_seconds
      
  end subroutine advance_time

end module time_mod